You Can Use Service.GetLastFault

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

see details in lsxsd.lss
it is in the folder of Lotus notes
example：
Function taskBatchSynch(arg0 As SynchData_n3) As SynchResult_n3
On Error Goto errh
Set taskBatchSynch = Service.Invoke("taskBatchSynch", arg0)
Exit Function
errh:
On Error Goto errh2
Dim wf As WS_FAULT
Set wf=Service.GetLastFault()
If Not wf Is Nothing Then
'Msgbox a.a 'won't goto errh2！why?
If taskBatchSynch Is Nothing Then
Dim tmp As SynchResult_n3
Set tmp=New SynchResult_n3()
tmp.success=False
Set strObj=New XSD_STRING
Call strObj.setValueFromString(wf.getFaultString())
Set tmp.message=strObj
Set taskBatchSynch=tmp
End If
End If
Exit Function
errh2:
Print Erl & "，" & Error
Msgbox Erl & "，" & Error
Exit Function
End Function

Feedback response number WEBB93CDJF created by ~James Nimfreeterobu on 12/26/2012